*** Create Figure 3 ***

********************************************************************************
clear 

** read in .dta file **
use "${clean}/who_counts_descriptives.dta", clear

* MoB: As indicator of quality of registration.
* No evidence of error for those who report their MoB, esp. as compared to 2004
graph dot, over(birthmonth) blabel(bar, format(%4.2f)) yscale(range(5 20))   title("Reported MoB, Full Sample")
graph save "${output}/graphs/MOB.gph", replace

preserve
drop if YOB < 1989

graph dot, over(birthmonth) blabel(bar, format(%4.2f)) yscale(range(5 20)) title("Reported MoB, 1989-1994")
graph save "${output}/graphs/MOB_kids.gph", replace

restore

preserve
drop if YOB < 1950
drop if YOB > 1955

graph dot, over(birthmonth) blabel(bar, format(%4.2f)) ylabel(,labsize(tiny))  yscale(range(5 20)) title("Reported MoB, 1950-1953")
graph save "${output}/graphs/MOB_sub.gph", replace

restore

preserve
drop if YOB < 1945
drop if YOB > 1950

graph dot, over(birthmonth) blabel(bar, format(%4.2f)) ylabel(,labsize(tiny))  yscale(range(5 20)) title("Reported MoB, 1946-1949")
graph save "${output}/graphs/MOB_seniors.gph", replace

restore

grc1leg "${output}/graphs/MOB.gph" "${output}/graphs/MOB_kids.gph" "${output}/graphs/MOB_sub.gph" "${output}/graphs/MOB_seniors.gph",legendfrom("${output}/graphs/MOB_sub.gph")
graph save "${output}/graphs/Figure3.gph", replace
graph export "${output}/graphs/Figure3.png", replace


********************************************************************************
